sub vg5000putcharvsys(tch as ubyte,tattr as ubyte):
  asm
    ld d,(ix+5)
    ld e,(ix+7)
    call 0x0095
    end asm
  end sub

